home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 1 #3
/
Commodore_Disk_User_Vol.1_3_1988_-.d64
/
rem mc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
599b
|
29 lines
10 rem this program demonstrates how
20 rem to include machine code into a
30 rem compiled basic program
40 rem
50 rem the code at lines 1000-1050 is:
60 rem
70 rem sei
80 rem ldx #$00
90 rem loop lda $d012 ;get raster
91 rem lsr a ;position
92 rem lsr a
93 rem lsr a
94 rem lsr a
95 rem sta 53281 ;change colour
96 rem dex ;repeat 256
97 rem bne loop ;times
98 rem cli
99 rem
100 gosub1000
110 geta$:ifa$=""then100
120 poke53281,0:end
1000 rem#$78,$a2,$00
1010 rem#$ad,$12,$d0
1020 rem#$4a,$4a,$4a,$4a
1030 rem#$8d,d53281
1040 rem#$ca,$d0,$f3
1050 rem#$58
1060 return